#lang rosetta-racket


(backend rhino 'delete)


;(define a (sphere 1))
;(define b (evaluate a))
;(define c (shape-node b))
;
;(equal? a c)


(let ((a (sphere 1)))
  (apply equal? (map shape-node (map evaluate (list a a)))))